object frmCashier: TfrmCashier
  Tag = 1
  Left = 451
  Top = 242
  Width = 800
  Height = 600
  Caption = #1050#1072#1089#1089#1072
  Color = clBtnFace
  Constraints.MinHeight = 600
  Constraints.MinWidth = 800
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 792
    Height = 554
    ActivePage = ZKXPays
    Align = alClient
    Constraints.MinWidth = 792
    TabOrder = 0
    OnChange = PageControlChange
    object ZKXPays: TTabSheet
      Caption = #1055#1083#1072#1090#1077#1078#1080' '#1046#1050#1061
      object pcMain: TPageControl
        Left = 0
        Top = 69
        Width = 784
        Height = 283
        ActivePage = PaySheet
        Align = alClient
        Style = tsFlatButtons
        TabOrder = 0
        OnChange = pcMainChange
        object PaySheet: TTabSheet
          Caption = #1054#1087#1083#1072#1090#1072
          object dbgPay: TDBGridEh
            Left = 0
            Top = 37
            Width = 776
            Height = 215
            Align = alClient
            ColumnDefValues.EndEllipsis = True
            DataGrouping.GroupLevels = <>
            DataSource = dsc_MainPays
            EvenRowColor = clWindow
            Flat = True
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clMaroon
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            FooterRowCount = 1
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            SumList.Active = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            OnColumnMoved = dbgPayColumnMoved
            OnDblClick = dbgPayDblClick
            OnGetCellParams = dbgPayGetCellParams
            OnKeyPress = dbgPayKeyPress
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RSERVICE_NAME'
                Footer.Value = #1048#1090#1086#1075#1086
                Footer.ValueType = fvtStaticText
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RSALDO'
                Footer.FieldName = 'RSALDO'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RPENI'
                Footer.FieldName = 'RPENI'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RCURRENT_CHARGE'
                Footer.FieldName = 'RCURRENT_CHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Title.Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1086
              end
              item
                EditButtons = <>
                FieldName = 'RNEW_CHARGE'
                Footer.FieldName = 'RNEW_CHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Title.Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1086
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'RFORPAY'
                Footer.FieldName = 'RFORPAY'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'TSUMMA'
                Footer.FieldName = 'TSUMMA'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'TPENI'
                Footer.FieldName = 'TPENI'
                Footer.ValueType = fvtSum
                Footers = <>
                Visible = False
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
          object pFilter: TPanel
            Left = 0
            Top = 0
            Width = 776
            Height = 37
            Align = alTop
            BevelInner = bvRaised
            BevelOuter = bvLowered
            TabOrder = 1
            DesignSize = (
              776
              37)
            object Label7: TLabel
              Left = 21
              Top = 4
              Width = 65
              Height = 26
              Alignment = taRightJustify
              Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
              WordWrap = True
            end
            object Label8: TLabel
              Left = 391
              Top = 11
              Width = 69
              Height = 13
              Alignment = taRightJustify
              Anchors = [akTop, akRight]
              AutoSize = False
              Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
            end
            object lcbManagers: TDBLookupComboboxEh
              Left = 95
              Top = 9
              Width = 280
              Height = 19
              AlwaysShowBorder = True
              Anchors = [akLeft, akTop, akRight]
              EditButtons = <>
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListFieldIndex = -1
              ListSource = dsc_Managers
              TabOrder = 0
              Visible = True
              OnChange = lcbManagersChange
            end
            object lcbSuppliers: TDBLookupComboboxEh
              Left = 470
              Top = 9
              Width = 285
              Height = 19
              AlwaysShowBorder = True
              Anchors = [akTop, akRight]
              EditButtons = <>
              Flat = True
              KeyField = 'ID'
              ListField = 'NAME'
              ListFieldIndex = -1
              ListSource = dsc_Suppliers
              TabOrder = 1
              Visible = True
              OnChange = lcbSuppliersChange
            end
          end
        end
        object RecieptsSheet: TTabSheet
          Caption = #1063#1077#1082#1080
          ImageIndex = 1
          object Splitter1: TSplitter
            Left = 389
            Top = 0
            Width = 5
            Height = 252
          end
          object dbgrecieptPays: TDBGridEh
            Left = 394
            Top = 0
            Width = 382
            Height = 252
            Align = alClient
            Constraints.MinWidth = 240
            DataGrouping.GroupLevels = <>
            DataSource = dsc_RecieptPays
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUMMA'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
          object dbgReciepts: TDBGridEh
            Left = 0
            Top = 0
            Width = 389
            Height = 252
            Align = alLeft
            Constraints.MaxWidth = 400
            Constraints.MinHeight = 100
            Constraints.MinWidth = 300
            DataGrouping.GroupLevels = <>
            DataSource = dsc_Reciepts
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            RowDetailPanel.Color = clBtnFace
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RECIEPT'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUMMA'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATER'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
        object AddSheet: TTabSheet
          Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
          ImageIndex = 2
          object GroupBox2: TGroupBox
            Left = 0
            Top = 0
            Width = 776
            Height = 252
            Align = alClient
            Caption = ' '#1046#1080#1083#1100#1094#1099' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object dbgClients: TDBGridEh
              Left = 2
              Top = 15
              Width = 772
              Height = 107
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Clients
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              OddRowColor = clWindow
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = [fsBold]
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RSTATUS_NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RBDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'SEX'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'BIRTHDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'REXEMPT_NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'REXEMPT_DOC'
                  Footers = <>
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
            object meAbonentNote: TMemo
              Left = 2
              Top = 142
              Width = 772
              Height = 108
              Align = alBottom
              BevelInner = bvNone
              BevelOuter = bvNone
              Color = clInactiveCaptionText
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
            end
            object Panel7: TPanel
              Left = 2
              Top = 122
              Width = 772
              Height = 20
              Align = alBottom
              BevelOuter = bvLowered
              TabOrder = 2
              object Label17: TLabel
                Left = 3
                Top = 4
                Width = 73
                Height = 13
                Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081':'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
            end
          end
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 352
        Width = 784
        Height = 174
        Align = alBottom
        BevelOuter = bvNone
        Caption = 'Panel3'
        TabOrder = 1
        object pSave: TPanel
          Left = 0
          Top = 0
          Width = 784
          Height = 174
          Align = alClient
          BevelOuter = bvNone
          Constraints.MinWidth = 592
          TabOrder = 0
          object lSaldo: TLabel
            Left = 4
            Top = 12
            Width = 105
            Height = 20
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1057#1072#1083#1100#1076#1086
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label10: TLabel
            Left = 10
            Top = 40
            Width = 100
            Height = 20
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1050' '#1086#1087#1083#1072#1090#1077
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label11: TLabel
            Left = 10
            Top = 97
            Width = 100
            Height = 20
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1053#1072#1083#1080#1095#1085#1099#1084#1080
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label12: TLabel
            Left = 10
            Top = 126
            Width = 100
            Height = 20
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1057#1076#1072#1095#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label2: TLabel
            Left = 10
            Top = 69
            Width = 100
            Height = 20
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1054#1087#1083#1072#1090#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label1: TLabel
            Left = 292
            Top = 41
            Width = 205
            Height = 20
            Caption = #1054#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object sbChargeToPay: TSpeedButton
            Left = 256
            Top = 66
            Width = 29
            Height = 26
            Hint = 
              #1044#1086#1073#1072#1074#1080#1090#1100' '#1086#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077' '#1082' '#1090#1077#1082#1091#1097#1077#1081' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1080' (Ctrl+'#1042#1083#1077#1074 +
              #1086')'
            Action = aNewChargeToPay
            Flat = True
            Glyph.Data = {
              36090000424D3609000000000000360000002800000018000000180000000100
              2000000000000009000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000085BAACFF0000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000007AB7A7FF3BC09DFF57D7BCFF34BC
              98FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000006DAD9BFF50C0A3FF58D3B7FF72E4D0FF66E3CFFF1BBC
              92FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000062AD96FF4ABA9CFF66DAC0FF6EE1CCFF65E1CCFF58E0C8FF56DFC7FF19B9
              8EFF000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000060B199FF39C1
              9CFF6CDCC4FF72E4CFFF5CDFC8FF52DCC4FF51DCC3FF51DDC4FF53DDC4FF19B4
              89FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000005EAF96FF4DBFA0FF61D5BBFF6CE1
              CCFF5CDEC6FF52DCC2FF4FDBC1FF4FDBC1FF4FDBC1FF4FDBC2FF50DBC2FF19AF
              84FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000085BAACFF48B294FF4DD1B5FF5FDBC4FF59DCC4FF51DA
              C0FF4ED9BFFF4ED9BFFF4ED9BFFF4ED9BFFF4ED9BFFF4ED9BFFF4FDAC0FF19AB
              7FFF000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000085BAACFF38B08DFF43CAAAFF47D2B4FF40D0
              B0FF3DCEACFF3CCDACFF3CCDABFF3CCDABFF3CCDABFF3CCDACFF3ECEADFF16A3
              75FF000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000005CA188FF34AF89FF41C9
              A8FF45D1B2FF3DCEABFF39CBA7FF38CBA7FF38CBA7FF39CBA7FF3ACCA9FF159E
              6FFF000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000000000000429E
              7CFF2CAF86FF46CEAFFF40CEADFF37C9A4FF35C8A2FF35C8A3FF38C9A4FF159A
              6AFF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000004A9577FF3AB08CFF3FC7A4FF3CCCA8FF34C8A1FF34C8A0FF1594
              63FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000008FAB9FFF4B9B7CFF33AB85FF3DC7A3FF3BCBA7FF1691
              60FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000087A99AFF34956EFF2EAF87FF2C90
              67FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000087A798FF0000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000}
            ParentShowHint = False
            ShowHint = True
          end
          object sbDolgToPay: TSpeedButton
            Left = 256
            Top = 37
            Width = 29
            Height = 26
            Hint = #1054#1087#1083#1072#1090#1080#1090#1100' '#1090#1086#1083#1100#1082#1086' '#1090#1077#1082#1091#1097#1091#1102' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1100' (Ctrl+'#1042#1085#1080#1079')'
            Action = aForPayToPay
            Flat = True
            Glyph.Data = {
              36090000424D3609000000000000360000002800000018000000180000000100
              2000000000000009000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000085BAACFF000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000085BAACFF48B294FF000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000038B08DFF4DD1B5FF5EAF96FF0000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00005CA188FF43CAAAFF5FDBC4FF4DBFA0FF0000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000034AF89FF47D2B4FF59DCC4FF61D5BBFF60B199FF00000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000000000000000000000429E
              7CFF41C9A8FF40D0B0FF51DAC0FF6CE1CCFF39C19CFF00000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000002CAF
              86FF45D1B2FF3DCEACFF4ED9BFFF5CDEC6FF6CDCC4FF62AD96FF000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000000000000000000004A9577FF46CE
              AFFF3DCEABFF3CCDACFF4ED9BFFF52DCC2FF72E4CFFF4ABA9CFF000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000008FAB9FFF3AB08CFF40CE
              ADFF39CBA7FF3CCDABFF4ED9BFFF4FDBC1FF5CDFC8FF66DAC0FF6DAD9BFF0000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000000000004B9B7CFF3FC7A4FF37C9
              A4FF38CBA7FF3CCDABFF4ED9BFFF4FDBC1FF52DCC4FF6EE1CCFF50C0A3FF0000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000087A99AFF33AB85FF3CCCA8FF35C8
              A2FF38CBA7FF3CCDABFF4ED9BFFF4FDBC1FF51DCC3FF65E1CCFF58D3B7FF7AB7
              A7FF000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000034956EFF3DC7A3FF34C8A1FF35C8
              A3FF39CBA7FF3CCDACFF4ED9BFFF4FDBC2FF51DDC4FF58E0C8FF72E4D0FF3BC0
              9DFF000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000087A798FF2EAF87FF3BCBA7FF34C8A0FF38C9
              A4FF3ACCA9FF3ECEADFF4FDAC0FF50DBC2FF53DDC4FF56DFC7FF66E3CFFF57D7
              BCFF85BAACFF0000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000002C9067FF169160FF159463FF159A
              6AFF159E6FFF16A375FF19AB7FFF19AF84FF19B489FF19B98EFF1BBC92FF34BC
              98FF000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000}
            ParentShowHint = False
            ShowHint = True
          end
          object dbneSaldo: TDBNumberEditEh
            Left = 117
            Top = 8
            Width = 130
            Height = 26
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Visible = True
            OnEnter = lcbClientNameEnter
          end
          object dbneForPay: TDBNumberEditEh
            Left = 117
            Top = 37
            Width = 130
            Height = 26
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
            OnEnter = lcbClientNameEnter
          end
          object dbneCash: TDBNumberEditEh
            Left = 117
            Top = 94
            Width = 130
            Height = 26
            AlwaysShowBorder = True
            BiDiMode = bdLeftToRight
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentBiDiMode = False
            ParentFont = False
            TabOrder = 3
            Value = 0.000000000000000000
            Visible = True
            OnChange = dbneCashChange
            OnEnter = dbneCashEnter
            OnExit = dbneCashExit
            OnKeyPress = dbnePayKeyPress
          end
          object dbneDelivery: TDBNumberEditEh
            Left = 117
            Top = 123
            Width = 130
            Height = 26
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
            Visible = True
            OnEnter = lcbClientNameEnter
          end
          object bbPay: TBitBtn
            Left = 292
            Top = 137
            Width = 105
            Height = 29
            Caption = #1054#1087#1083#1072#1090#1080#1090#1100
            Enabled = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 6
            OnClick = bbPayClick
          end
          object bbClear: TBitBtn
            Left = 408
            Top = 137
            Width = 105
            Height = 29
            Caption = #1054#1095#1080#1089#1090#1080#1090#1100
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 7
            OnClick = bbClearClick
          end
          object dbnePay: TDBNumberEditEh
            Left = 117
            Top = 66
            Width = 130
            Height = 26
            AlwaysShowBorder = True
            BiDiMode = bdLeftToRight
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentBiDiMode = False
            ParentFont = False
            TabOrder = 2
            Value = 0.000000000000000000
            Visible = True
            OnChange = dbnePayChange
            OnEnter = dbnePayEnter
            OnExit = dbnePayExit
            OnKeyPress = dbnePayKeyPress
          end
          object dbneNewCharge: TDBNumberEditEh
            Left = 292
            Top = 66
            Width = 105
            Height = 26
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            currency = True
            DisplayFormat = '#0.00'
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 8
            Visible = True
            OnEnter = lcbClientNameEnter
          end
          object bbMetersInd: TBitBtn
            Left = 292
            Top = 100
            Width = 105
            Height = 29
            Hint = #1047#1072#1085#1077#1089#1090#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1086' '#1074#1089#1077#1084' '#1089#1095#1077#1090#1095#1080#1082#1072#1084' '#1072#1073#1086#1085#1077#1085#1090#1072' (F6)'
            Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clGreen
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 9
            TabStop = False
            OnClick = bbMetersIndClick
          end
          object gbNote: TGroupBox
            Left = 581
            Top = 0
            Width = 203
            Height = 174
            Align = alRight
            Caption = ' '#1055#1088#1080#1084#1077#1095#1072#1085#1080#1077' '
            TabOrder = 10
            Visible = False
            DesignSize = (
              203
              174)
            object dbeNote: TDBEditEh
              Left = 3
              Top = 16
              Width = 197
              Height = 155
              AlwaysShowBorder = True
              Anchors = [akLeft, akTop, akRight]
              AutoSize = False
              Color = clInactiveCaptionText
              DataField = 'NOTE'
              DataSource = dsc_Address
              EditButtons = <>
              Flat = True
              ReadOnly = True
              TabOrder = 0
              Visible = True
            end
          end
          object dbmeChargeDate: TwzsMonthDBEdit
            Left = 408
            Top = 66
            Width = 169
            Height = 26
            TabStop = False
            MonthFormat = 'mmmm'
            YearFormat = 'yyyy'
            Delimiter = ','
            FormatType = ftMonthYear
            DefaultDate = 40515.509583483800000000
            DefaultLineText = '('#1090#1077#1082#1091#1097#1080#1081')'
            NullLineText = '('#1074#1089#1077' '#1087#1077#1088#1080#1086#1076#1099')'
            NullLineVisible = False
            AlwaysShowBorder = True
            DropDownBox.Rows = 12
            EditButton.Hint = #1042#1099#1073#1088#1072#1090#1100' '#1084#1077#1089#1103#1094
            EditButton.Width = 16
            EditButtons = <
              item
                Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1084#1077#1089#1103#1094' ('#1089#1090#1088#1077#1083#1082#1080' '#1042#1074#1077#1088#1093'/'#1042#1085#1080#1079')'
                Style = ebsUpDownEh
                Visible = False
                Width = 16
              end
              item
                Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1075#1086#1076' ('#1087#1083#1102#1089'/'#1084#1080#1085#1091#1089')'
                Style = ebsMinusEh
                Width = 16
              end
              item
                Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1075#1086#1076' ('#1087#1083#1102#1089'/'#1084#1080#1085#1091#1089')'
                Style = ebsPlusEh
                Width = 16
              end>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            Visible = True
            OnChange = dbmeChargeDateChange
            OnKeyDown = dbmeChargeDateKeyDown
          end
          object cbPeniPay: TDBCheckBoxEh
            Left = 292
            Top = 12
            Width = 176
            Height = 17
            AlwaysShowBorder = True
            Caption = #1054#1087#1083#1072#1095#1080#1074#1072#1090#1100' '#1087#1077#1085#1080
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 11
            ValueChecked = 'True'
            ValueUnchecked = 'False'
            OnClick = cbPeniPayClick
          end
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 784
        Height = 69
        Align = alTop
        Caption = ' '#1040#1076#1088#1077#1089' '
        TabOrder = 2
        object dbeAddress: TDBEditEh
          Left = 168
          Top = 16
          Width = 489
          Height = 20
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Constraints.MinWidth = 480
          DataField = 'ADDRESS'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Visible = True
          OnEnter = lcbClientNameEnter
        end
        object dbeClientName: TDBEditEh
          Left = 7
          Top = 40
          Width = 650
          Height = 20
          TabStop = False
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          Constraints.MinWidth = 641
          DataField = 'NAME'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Visible = True
        end
        object dbeNLS: TDBEditEh
          Left = 7
          Top = 16
          Width = 154
          Height = 20
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'G_LICSCHET'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          Visible = True
        end
        object Panel1: TPanel
          Left = 662
          Top = 15
          Width = 120
          Height = 52
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 3
          DesignSize = (
            120
            52)
          object ddSearch: TBitBtn
            Left = 3
            Top = 0
            Width = 111
            Height = 45
            Hint = #1042#1099#1073#1086#1088' '#1072#1073#1086#1085#1077#1085#1090#1072' (F5)'
            Anchors = [akTop, akRight]
            Caption = #1055#1086#1080#1089#1082' (F5)'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = aSearchExecute
            Glyph.Data = {
              36060000424D3606000000000000360000002800000020000000100000000100
              1800000000000006000000000000000000000000000000000000FF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
              00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00
              0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FF000000088EF1000000FF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000094
              9494000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C6
              C6C6838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BCBCBCBB
              BBBBBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F700000008B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AEAEAEAFAFAF00
              0000AFAFAFAEAEAE787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000088EF1000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000094
              9494000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C7
              C7C7838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BBBBBBBC
              BCBCBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F700000008B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AFAFAFAFAFAF00
              0000AEAEAEAFAFAF787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000088EF1000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000094
              9494000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C6
              C6C6838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BCBCBCBB
              BBBBBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F709B0F708B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AEAEAEAFAFAFAF
              AFAFAFAFAFAFAFAF787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000000000000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000000
              0000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
              00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
            NumGlyphs = 2
          end
        end
      end
    end
    object OtherSheet: TTabSheet
      Caption = #1055#1088#1086#1095#1080#1077' '#1087#1083#1072#1090#1077#1078#1080
      ImageIndex = 3
      object pSaveOther: TPanel
        Left = 0
        Top = 373
        Width = 784
        Height = 153
        Align = alBottom
        BevelOuter = bvNone
        Constraints.MinWidth = 592
        TabOrder = 0
        object Label4: TLabel
          Left = 602
          Top = -1
          Width = 100
          Height = 20
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050#1086#1084#1080#1089#1089#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
        end
        object Label5: TLabel
          Left = 10
          Top = 69
          Width = 100
          Height = 20
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1053#1072#1083#1080#1095#1085#1099#1084#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 10
          Top = 98
          Width = 100
          Height = 20
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1076#1072#1095#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 10
          Top = 40
          Width = 100
          Height = 20
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1054#1087#1083#1072#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label16: TLabel
          Left = 602
          Top = 40
          Width = 100
          Height = 20
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1050' '#1086#1087#1083#1072#1090#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
        end
        object dbneRateSumma: TDBNumberEditEh
          Left = 709
          Top = -4
          Width = 146
          Height = 21
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          currency = False
          DisplayFormat = '#0.00'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Visible = False
        end
        object dbneCash2: TDBNumberEditEh
          Left = 117
          Top = 66
          Width = 146
          Height = 28
          AlwaysShowBorder = True
          currency = True
          DisplayFormat = '#0.00'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          TabOrder = 3
          Value = 0.000000000000000000
          Visible = True
          OnEnter = dbneCash2Enter
          OnExit = dbneCash2Exit
          OnKeyPress = dbnePayKeyPress
        end
        object dbneDelivery2: TDBNumberEditEh
          Left = 117
          Top = 95
          Width = 146
          Height = 28
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          currency = True
          DisplayFormat = '#0.00'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 4
          Visible = True
          OnEnter = lcbClientNameEnter
        end
        object bbPay2: TBitBtn
          Left = 292
          Top = 93
          Width = 105
          Height = 29
          Caption = #1054#1087#1083#1072#1090#1080#1090#1100
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          OnClick = bbPay2Click
        end
        object bbClear2: TBitBtn
          Left = 408
          Top = 93
          Width = 105
          Height = 29
          Caption = #1054#1095#1080#1089#1090#1080#1090#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
          OnClick = bbClear2Click
          OnEnter = lcbClientNameEnter
        end
        object dbnePay2: TDBNumberEditEh
          Left = 117
          Top = 37
          Width = 146
          Height = 28
          AlwaysShowBorder = True
          currency = True
          DisplayFormat = '#0.00'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          TabOrder = 2
          Value = 0.000000000000000000
          Visible = True
          OnChange = dbnePay2Change
          OnEnter = dbnePay2Enter
          OnKeyPress = dbnePayKeyPress
        end
        object dbneForPay2: TDBNumberEditEh
          Left = 709
          Top = 37
          Width = 146
          Height = 28
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          currency = False
          DisplayFormat = '#0.00'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Value = 0.000000000000000000
          Visible = False
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 784
        Height = 71
        Align = alTop
        Caption = ' '#1040#1076#1088#1077#1089' '
        TabOrder = 1
        object dbeAbonentNLS: TDBEditEh
          Left = 7
          Top = 16
          Width = 154
          Height = 21
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'G_LICSCHET'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Visible = True
        end
        object dbedAbonentAddress: TDBEditEh
          Left = 168
          Top = 16
          Width = 489
          Height = 22
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Constraints.MinWidth = 480
          DataField = 'ADDRESS'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Visible = True
          OnEnter = lcbClientNameEnter
        end
        object dbedAbonentName: TDBEditEh
          Left = 7
          Top = 40
          Width = 650
          Height = 22
          TabStop = False
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          Constraints.MinWidth = 641
          DataField = 'NAME'
          DataSource = dsc_Address
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          Visible = True
          OnEnter = lcbClientNameEnter
        end
        object Panel2: TPanel
          Left = 662
          Top = 15
          Width = 120
          Height = 54
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 3
          DesignSize = (
            120
            54)
          object ddSearch2: TBitBtn
            Left = 1
            Top = 0
            Width = 111
            Height = 45
            Anchors = [akTop, akRight]
            Caption = #1055#1086#1080#1089#1082' (F5)'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            OnClick = aSearchExecute
            Glyph.Data = {
              36060000424D3606000000000000360000002800000020000000100000000100
              1800000000000006000000000000000000000000000000000000FF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
              00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00
              0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FF000000088EF1000000FF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000094
              9494000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C6
              C6C6838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BCBCBCBB
              BBBBBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F700000008B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AEAEAEAFAFAF00
              0000AFAFAFAEAEAE787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000088EF1000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000094
              9494000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C7
              C7C7838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BBBBBBBC
              BCBCBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F700000008B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AFAFAFAFAFAF00
              0000AEAEAEAFAFAF787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000088EF1000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000094
              9494000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FF0000007AFBFF02CBFD0073EF000000FF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F4F4F4C6
              C6C6838383000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FF0000007CFAFF05BFFA05BFFA05BFFB006CEC000000FF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F3F3F3BCBCBCBB
              BBBBBCBCBC7E7E7E000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF0000007DF8FF09B0F709B0F709B0F708B0F708B0F70163E9000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000F1F1F1AEAEAEAFAFAFAF
              AFAFAFAFAFAFAFAF787878000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FF000000000000000000000000000000000000000000000000000000FF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000000
              0000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
              FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
              FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
              00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
            NumGlyphs = 2
          end
        end
      end
      object pcOtherPays: TPageControl
        Left = 0
        Top = 71
        Width = 784
        Height = 302
        ActivePage = tsOtherPays
        Align = alClient
        Style = tsFlatButtons
        TabOrder = 2
        OnChange = pcOtherPaysChange
        object tsOtherPays: TTabSheet
          Caption = #1054#1087#1083#1072#1090#1072
          DesignSize = (
            776
            271)
          object Label14: TLabel
            Left = 10
            Top = 44
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
          end
          object Label3: TLabel
            Left = 10
            Top = 18
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1060#1048#1054
          end
          object Label15: TLabel
            Left = 10
            Top = 69
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
          end
          object Label13: TLabel
            Left = 10
            Top = 94
            Width = 70
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
          end
          object lcbAddresser: TDBLookupComboboxEh
            Left = 86
            Top = 66
            Width = 564
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'DOGHEADER'
            ListSource = dsc_Addresser
            TabOrder = 2
            Visible = True
            OnChange = dbnePay2Change
            OnCloseUp = lcbAddresserCloseUp
            OnEnter = lcbClientNameEnter
            OnExit = lcbAddresserExit
          end
          object lcbClientName: TDBComboBoxEh
            Left = 86
            Top = 15
            Width = 564
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            CharCase = ecUpperCase
            EditButtons = <>
            Flat = True
            TabOrder = 0
            Visible = True
            OnCloseUp = lcbClientNameCloseUp
            OnEnter = lcbClientNameEnter
          end
          object lcbDocNum: TDBLookupComboboxEh
            Left = 86
            Top = 92
            Width = 564
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            EditButtons = <>
            Flat = True
            KeyField = 'DOCNO'
            ListField = 'DOCNO'
            ListSource = dsc_DocNum
            Style = csDropDownEh
            TabOrder = 3
            Visible = True
            OnEnter = lcbClientNameEnter
            OnExit = lcbDocNumExit
          end
          object lcbTargetGroup: TDBLookupComboboxEh
            Left = 86
            Top = 41
            Width = 564
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            EditButtons = <>
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_TargetGroup
            TabOrder = 1
            Visible = True
            OnCloseUp = lcbTargetGroupCloseUp
            OnEnter = lcbClientNameEnter
            OnExit = lcbTargetGroupExit
          end
        end
        object tsOtherPaysHist: TTabSheet
          Caption = #1063#1077#1082#1080
          ImageIndex = 1
          object dbgRecieptsOther: TDBGridEh
            Left = 0
            Top = 0
            Width = 776
            Height = 271
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_RecieptsOther
            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RECIEPT'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUMMA'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'FIO'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DOCNO'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PAY_RATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DOGHEADER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SERVICE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 228
    object N1: TMenuItem
      Caption = #1054#1090#1095#1077#1090#1099
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #1060#1091#1085#1082#1094#1080#1080
      object N7: TMenuItem
        Action = aRecalcSaldo
      end
    end
    object mmOptions: TMenuItem
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
      object NSwitchKassa: TMenuItem
        Caption = #1042#1082#1083#1102#1095#1080#1090#1100' '#1082#1072#1089#1089#1091
        OnClick = NSwitchKassaClick
      end
      object NFuncKassa: TMenuItem
        Caption = #1060#1091#1085#1082#1094#1080#1080
        Enabled = False
        OnClick = NFuncKassaClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object MIPrintCheck: TMenuItem
        Caption = #1055#1077#1095#1072#1090#1100' '#1082#1074#1080#1090#1082#1072' '#1087#1086#1089#1083#1077' '#1087#1083#1072#1090#1077#1078#1072
        Checked = True
        OnClick = MIPrintCheckClick
      end
      object MIPrintCheckOther: TMenuItem
        Caption = #1055#1077#1095#1072#1090#1100' '#1082#1074#1080#1090#1082#1072' '#1087#1086#1089#1083#1077' '#1087#1088#1086#1095#1077#1075#1086' '#1087#1083#1072#1090#1077#1078#1072
        Checked = True
        OnClick = MIPrintCheckClick
      end
      object miPrintCheckAutoMode: TMenuItem
        Caption = #1055#1077#1095#1072#1090#1100' '#1082#1074#1080#1090#1082#1072' '#1072#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080' ('#1073#1077#1079' '#1087#1088#1086#1089#1084#1086#1090#1088#1072')'
        OnClick = MIPrintCheckClick
      end
      object miPrintQuitInCheck: TMenuItem
        Caption = #1055#1077#1095#1072#1090#1100' '#1082#1074#1080#1090#1082#1072' '#1074' '#1082#1072#1089#1089#1086#1074#1086#1084' '#1095#1077#1082#1077
        OnClick = MIPrintCheckClick
      end
      object miCheckOneSum: TMenuItem
        Caption = #1063#1077#1082' '#1086#1076#1085#1086#1081' '#1089#1091#1084#1084#1086#1081
        OnClick = MIPrintCheckClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object MIRound: TMenuItem
        Caption = #1054#1082#1088#1091#1075#1083#1103#1090#1100' '#1089#1091#1084#1084#1091
        Checked = True
        OnClick = MIRoundClick
      end
      object miPayPeni: TMenuItem
        Caption = #1053#1072#1095#1080#1089#1083#1103#1090#1100' '#1087#1077#1085#1080
        OnClick = MIPrintCheckClick
      end
      object miPayPeniDefault: TMenuItem
        Caption = #1054#1087#1083#1072#1095#1080#1074#1072#1090#1100' '#1087#1077#1085#1080' ('#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102')'
        OnClick = MIPrintCheckClick
      end
      object miCalcNeed: TMenuItem
        Caption = #1056#1072#1089#1095#1077#1090' '#1090#1077#1082#1091#1097#1080#1093' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081
        OnClick = MIPrintCheckClick
      end
      object miAutoAddNewCharge: TMenuItem
        Caption = #1057#1088#1072#1079#1091' '#1076#1086#1073#1072#1074#1083#1103#1090#1100' '#1086#1078#1080#1076#1072#1077#1084#1099#1077' '#1082' '#1076#1086#1083#1075#1091
        Enabled = False
        Visible = False
        OnClick = MIPrintCheckClick
      end
      object miMonthPay: TMenuItem
        Caption = #1055#1086#1084#1077#1089#1103#1095#1085#1072#1103' '#1086#1087#1083#1072#1090#1072
        OnClick = miMonthPayClick
      end
      object miPeriodDefault: TMenuItem
        Caption = #1055#1077#1088#1080#1086#1076' '#1086#1087#1083#1072#1090#1099' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
        object miPeriodCurrentMonth: TMenuItem
          Caption = #1058#1077#1082#1091#1097#1080#1081' '#1084#1077#1089#1103#1094
          Checked = True
          OnClick = miPeriodCurrentMonthClick
        end
        object miPeriodPreviousMonth: TMenuItem
          Caption = #1055#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1084#1077#1089#1103#1094
          OnClick = miPeriodPreviousMonthClick
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miAutoSelectStreet: TMenuItem
        Caption = #1047#1072#1087#1086#1084#1080#1085#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1091#1102' '#1091#1083#1080#1094#1091
        OnClick = MIPrintCheckClick
      end
      object miShowClosedLS: TMenuItem
        Caption = #1054#1090#1086#1073#1088#1072#1078#1072#1090#1100' '#1079#1072#1082#1088#1099#1090#1099#1077' '#1051#1057
        Hint = #1054#1090#1086#1073#1088#1072#1078#1072#1090#1100' '#1079#1072#1082#1088#1099#1090#1099#1077' '#1051#1057' '#1074' '#1086#1082#1085#1077' '#1087#1086#1080#1089#1082#1072
        OnClick = MIPrintCheckClick
      end
      object miClearAfterOtherPay: TMenuItem
        Caption = #1057#1073#1088#1072#1089#1099#1074#1072#1090#1100' '#1072#1073#1086#1085#1077#1085#1090#1072' '#1087#1086#1089#1083#1077' '#1087#1088#1086#1095#1077#1075#1086' '#1087#1083#1072#1090#1077#1078#1072
        Checked = True
        OnClick = MIPrintCheckClick
      end
      object miShowPayConfirm: TMenuItem
        Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100' '#1086#1082#1085#1086' '#1087#1086#1076#1090#1074#1077#1088#1078#1076#1077#1085#1080#1103' '#1087#1083#1072#1090#1077#1078#1072
        Checked = True
        OnClick = MIPrintCheckClick
      end
      object miSelAbonAfterPay: TMenuItem
        Caption = #1054#1090#1082#1088#1099#1074#1072#1090#1100' '#1086#1082#1085#1086' '#1087#1086#1080#1089#1082#1072' '#1087#1086#1089#1083#1077' '#1086#1087#1083#1072#1090#1099
        Checked = True
        OnClick = MIPrintCheckClick
      end
      object miShowNote: TMenuItem
        Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1087#1072#1085#1077#1083#1100' '#1087#1088#1080#1084#1077#1095#1072#1085#1080#1103
        OnClick = miShowNoteClick
      end
      object miPayToCash: TMenuItem
        Caption = #1055#1077#1088#1077#1085#1086#1089#1080#1090#1100' "'#1054#1087#1083#1072#1090#1091'" '#1074' "'#1053#1072#1083#1080#1095#1085#1099#1084#1080'"'
        OnClick = MIPrintCheckClick
      end
      object miRepayAddNewCharge: TMenuItem
        Caption = #1059#1095#1080#1090#1099#1074#1072#1090#1100' '#1087#1077#1088#1077#1087#1083#1072#1090#1091' '#1074' '#1086#1078#1080#1076#1072#1077#1084#1099#1093
        OnClick = MIPrintCheckClick
      end
    end
  end
  object CashierTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 364
    Top = 196
  end
  object ds_Managers: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select cast(-1 as integer) as id, cast('#39#1055#1086' '#1074#1089#1077#1084' '#1046#1054#39' as varchar(6' +
        '0)) as name, 0'
      '  from rdb$database r'
      'union'
      'select v.id, v.manag as name, 1'
      '  from dogovors d, rmanag v'
      '  where v.id = d.manag_id'
      '    and d.abonent_id = :pabonent_id'
      '    and v.closed_rs = 0'
      '  order by 3,2')
    AfterOpen = ds_ManagersAfterOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 136
    Top = 62
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ManagersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ManagersNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Managers: TDataSource
    DataSet = ds_Managers
    Left = 172
    Top = 62
  end
  object dsc_Suppliers: TDataSource
    DataSet = ds_Suppliers
    Left = 248
    Top = 62
  end
  object ds_Suppliers: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select cast(-1 as integer) as id, cast('#39#1055#1086' '#1074#1089#1077#1084' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072#1084#39' as ' +
        'varchar(60)) as name, 0'
      '  from rdb$database r'
      'union'
      'select v.id, v.name, 1'
      '  from dogovors d, v_supplier v'
      '  where v.id = d.supplier_id'
      '    and d.abonent_id = :pabonent_id'
      '  order by 3,2')
    AfterOpen = ds_SuppliersAfterOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 216
    Top = 62
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_SuppliersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppliersNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_RecieptPays: TDataSource
    DataSet = ds_RecieptPays
    Left = 452
    Top = 358
  end
  object ds_RecieptPays: TpFIBDataSet
    SelectSQL.Strings = (
      'select r.summa, s.name'
      '  from reciepts r, pays p, services s'
      '  where r.abonent_id = :pabonent_id'
      '    and r.reciept = :reciept'
      '    and p.id = r.payment_id'
      '    and s.id = p.group_id'
      '  order by 2')
    AfterOpen = ds_RecieptPaysAfterOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_Reciepts
    Left = 418
    Top = 358
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_RecieptPaysNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_RecieptPaysSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      DisplayWidth = 8
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Reciepts: TDataSource
    DataSet = ds_Reciepts
    Left = 452
    Top = 322
  end
  object ds_Reciepts: TpFIBDataSet
    SelectSQL.Strings = (
      'select r.reciept, sum(r.summa) as summa,'
      
        '       (select rname from user_getfullname (r.createuserid)) as ' +
        'creater,'
      '       r.createdate'
      '  from reciepts r'
      '  where r.abonent_id = :pabonent_id'
      '  group by r.reciept, r.createuserid, r.createdate'
      '  order by r.createdate desc, r.reciept desc')
    AfterScroll = ds_RecieptPaysAfterOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 418
    Top = 322
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_RecieptsRECIEPT: TFIBStringField
      DisplayLabel = #8470' '#1095#1077#1082#1072
      DisplayWidth = 10
      FieldName = 'RECIEPT'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_RecieptsSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      DisplayWidth = 8
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object ds_RecieptsCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1095#1077#1082#1072
      FieldName = 'CREATEDATE'
    end
    object ds_RecieptsCREATER: TFIBStringField
      DisplayLabel = #1050#1072#1089#1089#1080#1088
      DisplayWidth = 25
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
  end
  object ds_MainPays: TpFIBDataSet
    UpdateSQL.Strings = (
      'update pays p'
      '  set p.summa = coalesce(summa, :TSUMMA),'
      '      p.summ_all = coalesce(summa, :TPAY),'
      '      p.summ_norm = coalesce(summa, :TPENI),'
      '      p.summ_exempts = coalesce(summa, :TOTHER)'
      'where p.id = -100')
    SelectSQL.Strings = (
      'SELECT'
      '    p.RSERVICE_NAME,'
      '    p.RSERVICE_SHORT_NAME,'
      '    p.RDOGOVOR_ID,'
      '    p.RSALDO,'
      '    p.RFORPAY,'
      '    p.RPENI,'
      '    p.RCALCTYPE,'
      '    p.RGROUP_ID,'
      '    p.RMETERPOLIT,'
      '    p.RIS_ACTIVE,'
      '    p.RMANAG_ID,'
      '    p.RSUPPLIER_ID,'
      '    p.RNEW_CHARGE,'
      '    p.RCURRENT_CHARGE,'
      
        '    coalesce(p.rsumma, 0) + coalesce(p.rpeni_pay, 0) + coalesce(' +
        'p.rother, 0) as TSUMMA,'
      '    coalesce(p.rsumma, 0) as TPAY,'
      '    coalesce(p.rpeni_pay, 0) as TPENI,'
      '    coalesce(p.rother, 0) as TOTHER,'
      '    iif (exists (select first(1) 1'
      
        '          from proc_dogovor_get_meters (p.rdogovor_id, current_d' +
        'ate, null, null) pm, meters m'
      
        '          where m.id = pm.rmeter_id and m.meter_type = -1), 1, 0' +
        ') as vodo_meter'
      
        'FROM proc_cashier_raspred_cash (:PABONENT_ID, :PSUPPLIER_ID, :PM' +
        'ANAG_ID,'
      
        '                              :PSUMMA, :PDOG_STR, :PSUM_STR, :PP' +
        'ENI_STR, :POTHER_STR, '
      
        '                              :PPENI, :pdate, :pround, :ppeni_ch' +
        'arge) p'
      'ORDER BY p.RCALCTYPE, p.RSERVICE_NAME')
    AfterClose = ds_MainPaysAfterClose
    AfterOpen = ds_MainPaysAfterOpen
    BeforeOpen = ds_MainPaysBeforeOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 54
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_MainPaysRSERVICE_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 30
      FieldName = 'RSERVICE_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MainPaysRSERVICE_SHORT_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'RSERVICE_SHORT_NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_MainPaysRDOGOVOR_ID: TFIBIntegerField
      FieldName = 'RDOGOVOR_ID'
    end
    object ds_MainPaysRSALDO: TFIBBCDField
      DisplayLabel = #1057#1072#1083#1100#1076#1086
      FieldName = 'RSALDO'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysRFORPAY: TFIBBCDField
      DisplayLabel = #1050' '#1086#1087#1083#1072#1090#1077
      FieldName = 'RFORPAY'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysRPENI: TFIBBCDField
      DisplayLabel = #1055#1077#1085#1080
      FieldName = 'RPENI'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysRCALCTYPE: TFIBIntegerField
      FieldName = 'RCALCTYPE'
    end
    object ds_MainPaysRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
    end
    object ds_MainPaysRMETERPOLIT: TFIBSmallIntField
      FieldName = 'RMETERPOLIT'
    end
    object ds_MainPaysRIS_ACTIVE: TFIBSmallIntField
      FieldName = 'RIS_ACTIVE'
    end
    object ds_MainPaysRMANAG_ID: TFIBIntegerField
      FieldName = 'RMANAG_ID'
    end
    object ds_MainPaysRSUPPLIER_ID: TFIBIntegerField
      FieldName = 'RSUPPLIER_ID'
    end
    object ds_MainPaysTSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1074#1089#1077#1075#1086
      FieldName = 'TSUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysTPAY: TFIBBCDField
      FieldName = 'TPAY'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysTPENI: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1087#1077#1085#1080
      FieldName = 'TPENI'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysTOTHER: TFIBBCDField
      FieldName = 'TOTHER'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysVODO_METER: TFIBIntegerField
      FieldName = 'VODO_METER'
    end
    object ds_MainPaysRNEW_CHARGE: TFIBBCDField
      DisplayLabel = #1054#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      FieldName = 'RNEW_CHARGE'
      DisplayFormat = '#,##0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainPaysRCURRENT_CHARGE: TFIBBCDField
      FieldName = 'RCURRENT_CHARGE'
      DisplayFormat = '#,##0.00'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_MainPays: TDataSource
    DataSet = ds_MainPays
    Left = 568
    Top = 54
  end
  object ds_Address: TpFIBDataSet
    SelectSQL.Strings = (
      'select v.address, v.name, v.g_licschet, v.id, v.note,'
      
        '       (select c.name_short from clients c where c.id = v.client' +
        '_id) as name_short,'
      
        '       v.street||'#39' '#1076'.'#39'||v.house||coalesce('#39' '#1082'.'#39'||v.corps, '#39#39')||c' +
        'oalesce('#39' '#1082#1074'.'#39'||v.apparts||coalesce(v.letter,'#39#39'),'#39#39') as short_ad' +
        'dr,'
      '       v.occ_fullspace,'
      
        '       (select count(1) from p_sel_abontenants_by_period (v.id, ' +
        'current_date - 1, current_date) where status > 0) as ten_cnt'
      '  from v_abons v'
      '  where v.id = :pabonent_id')
    AfterOpen = ds_AddressAfterOpen
    Transaction = trAddress
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 140
    Top = 10
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_AddressADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
    object ds_AddressNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_AddressG_LICSCHET: TFIBStringField
      FieldName = 'G_LICSCHET'
      EmptyStrToNull = True
    end
    object ds_AddressID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AddressNOTE: TFIBStringField
      FieldName = 'NOTE'
      Size = 1000
      EmptyStrToNull = True
    end
    object ds_AddressOCC_FULLSPACE: TFIBBCDField
      FieldName = 'OCC_FULLSPACE'
      Size = 3
      RoundByScale = True
    end
    object ds_AddressTEN_CNT: TFIBIntegerField
      FieldName = 'TEN_CNT'
    end
    object ds_AddressSHORT_ADDR: TFIBStringField
      FieldName = 'SHORT_ADDR'
      Size = 163
      EmptyStrToNull = True
    end
    object ds_AddressNAME_SHORT: TFIBStringField
      FieldName = 'NAME_SHORT'
      Size = 94
      EmptyStrToNull = True
    end
  end
  object dsc_Address: TDataSource
    DataSet = ds_Address
    Left = 172
    Top = 10
  end
  object DSContainer: TDataSetsContainer
    Left = 452
    Top = 4
  end
  object PopupMenu: TPopupMenu
    Left = 224
    Top = 252
    object N5: TMenuItem
      Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
    end
  end
  object QPay: TpFIBQuery
    Transaction = PayTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RESULT'
      'FROM PROC_CASHIER_PAY(:PDOGOVOR_STR,'
      '    :PSUMMA_STR,'
      '    :PRECIEPT,'
      '    :PPENI_STR,'
      '    :pbdate,'
      '    :pedate,'
      '    :pmanag_id,'
      '    :psupplier_id,'
      '    :pcharge_peni,'
      '    :PKKM_SERAIL) '
      ''
      '/*'
      'SELECT'
      '    RESULT'
      'FROM'
      '    PROC_CASHIER_INS_NORM(:PDOGOVOR_ID,'
      '    :PSUMMA,'
      '    :PRECIEPT,'
      '    :PPENI,'
      '    :PACT,'
      '    :POTHER,'
      '    null,'
      '    null,'
      '    :pmanag_id,'
      '    :psupplier_id,'
      '    :pcharge_peni,'
      '    :PKKM_SERAIL) '
      '*/')
    Left = 398
    Top = 474
    qoStartTransaction = True
  end
  object PayTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 680
    Top = 476
  end
  object ds_GenReciept: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RECIEPT'
      'FROM'
      '    PROC_CASHIER_GEN_RECIEPT(null) ')
    Transaction = PayTrans
    Database = MAINDM.pMainDatabase
    Left = 500
    Top = 486
    oFetchAll = True
    object ds_GenRecieptRECIEPT: TFIBStringField
      FieldName = 'RECIEPT'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object ds_Potr: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.meter_num,'
      '       (select rph'
      
        '          from proc_meter_get_ind (m.id, current_date)) as say_i' +
        'nd,'
      '       (select sum(dp.potr) from dogovors_potr dp'
      '          join m_act_potr mp on mp.is_deleted = 0'
      '            and mp.id = dp.act_potr_id'
      '          join meter_ind mi on mi.is_deleted = 0'
      '            and mi.act_id = mp.act_id'
      '            and mi.meter_id = m.id'
      '          join m_accpoint_acts ma on ma.is_deleted = 0'
      '            and ma.id = mp.act_id'
      '            and ma.act_date = current_date'
      '          where dp.dogovor_id = :pdogovor_id) as paidcount'
      
        '  from proc_dogovor_get_meters (:pdogovor_id, current_date, null' +
        ', null) pr'
      '  join meters m on m.id = pr.rmeter_id'
      '  where pr.rstatus > 0'
      '')
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Left = 288
    Top = 474
    object ds_PotrMETER_NUM: TFIBStringField
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_PotrSAY_IND: TFIBBCDField
      FieldName = 'SAY_IND'
      Size = 3
      RoundByScale = True
    end
    object ds_PotrPAIDCOUNT: TFIBFloatField
      FieldName = 'PAIDCOUNT'
    end
  end
  object ActionList: TActionList
    Images = MAIN.ImageList
    Left = 324
    object aSearch: TAction
      Caption = #1055#1086#1080#1089#1082' (F5)'
      ShortCut = 116
      OnExecute = aSearchExecute
    end
    object aRecalcSaldo: TAction
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1072#1073#1086#1085#1077#1085#1090#1072
      OnExecute = aRecalcSaldoExecute
    end
    object aForPayToPay: TAction
      Hint = #1054#1087#1083#1072#1090#1080#1090#1100' '#1090#1086#1083#1100#1082#1086' '#1090#1077#1082#1091#1097#1091#1102' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1100
      ImageIndex = 23
      OnExecute = aForPayToPayExecute
    end
    object aNewChargeToPay: TAction
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1086#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077' '#1082' '#1090#1077#1082#1091#1097#1077#1081' '#1079#1072#1076#1086#1083#1078#1077#1085#1085#1086#1089#1090#1080
      ImageIndex = 26
      OnExecute = aNewChargeToPayExecute
    end
    object aNewChargeOnlyToPay: TAction
      Caption = 'aNewChargeOnlyToPay'
      Hint = #1054#1087#1083#1072#1090#1080#1090#1100' '#1090#1086#1083#1100#1082#1086' '#1086#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      OnExecute = aNewChargeOnlyToPayExecute
    end
  end
  object ds_OrgProp: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select first(1) uo.raddress as kassa_addr, uo.phone as kassa_pho' +
        'ne,'
      '       uo2.name, uo2.raddress, uo2.inn, uo2.phone,'
      '       uo2.bankorg, uo2.bank_dog, uo2.bank_bik, uo2.bank_phone,'
      
        '       coalesce((select cast(d.float_val as integer) from direct' +
        'ory d'
      '          where d.class = '#39'RecieptShortSrv'#39'), 1) as ShortSrvName'
      '  from user_getorgcode uc'
      '  join userorg uo on uc.rcode = uo.id'
      '  left join proc_orgs_get_parents (uc.rcode) p on 1=1'
      '  join userorg uo2 on p.rparent_id = uo2.id'
      '    and uo2.parentid = 0'
      '')
    AfterOpen = ds_ManagersAfterOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 384
    Top = 1
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_OrgPropKASSA_ADDR: TFIBStringField
      FieldName = 'KASSA_ADDR'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OrgPropKASSA_PHONE: TFIBStringField
      FieldName = 'KASSA_PHONE'
      EmptyStrToNull = True
    end
    object ds_OrgPropNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OrgPropRADDRESS: TFIBStringField
      FieldName = 'RADDRESS'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OrgPropINN: TFIBStringField
      FieldName = 'INN'
      Size = 12
      EmptyStrToNull = True
    end
    object ds_OrgPropPHONE: TFIBStringField
      FieldName = 'PHONE'
      EmptyStrToNull = True
    end
    object ds_OrgPropBANKORG: TFIBStringField
      FieldName = 'BANKORG'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OrgPropBANK_DOG: TFIBStringField
      FieldName = 'BANK_DOG'
      EmptyStrToNull = True
    end
    object ds_OrgPropBANK_BIK: TFIBStringField
      FieldName = 'BANK_BIK'
      Size = 10
      EmptyStrToNull = True
    end
    object ds_OrgPropBANK_PHONE: TFIBStringField
      FieldName = 'BANK_PHONE'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_OrgPropSHORTSRVNAME: TFIBIntegerField
      FieldName = 'SHORTSRVNAME'
    end
  end
  object QRecalcSaldo: TpFIBQuery
    Transaction = trRecalcSaldo
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_RECALC_SALDO(null, :pabonent_id)')
    Left = 96
    Top = 262
    qoStartTransaction = True
  end
  object ds_Clients: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    c.name,'
      '    p.rstatus_name,'
      '    p.rexempt_name,'
      '    p.rbdate,'
      '    c.birthdate,'
      '    p.rexempt_doc,'
      '    c.sex'
      '  from proc_get_abonent_tenants(:pabonent_id, 0) p, clients c'
      '  where c.id = p.rclient_id')
    Transaction = trAddress
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 237
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ClientsNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 92
      EmptyStrToNull = True
    end
    object ds_ClientsRSTATUS_NAME: TFIBStringField
      DisplayLabel = #1057#1090#1072#1090#1091#1089
      DisplayWidth = 8
      FieldName = 'RSTATUS_NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_ClientsRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1089#1090#1072#1090#1091#1089#1072
      FieldName = 'RBDATE'
    end
    object ds_ClientsSEX: TFIBStringField
      DisplayLabel = #1055#1086#1083
      DisplayWidth = 4
      FieldName = 'SEX'
      Size = 1
      EmptyStrToNull = True
    end
    object ds_ClientsBIRTHDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'BIRTHDATE'
    end
    object ds_ClientsREXEMPT_NAME: TFIBStringField
      DisplayLabel = #1051#1100#1075#1086#1090#1072
      DisplayWidth = 20
      FieldName = 'REXEMPT_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ClientsREXEMPT_DOC: TFIBStringField
      DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090' '#1083#1100#1075#1086#1090#1099
      DisplayWidth = 10
      FieldName = 'REXEMPT_DOC'
      Size = 100
      EmptyStrToNull = True
    end
  end
  object dsc_Clients: TDataSource
    DataSet = ds_Clients
    Left = 568
    Top = 237
  end
  object PropStorage: TPropStorageEh
    Section = 'frmCashier'
    StorageManager = MAIN.IniPropStorage
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      'MainMenu.mmOptions.miAutoAddNewCharge.<P>.Checked'
      'MainMenu.mmOptions.miAutoSelectStreet.<P>.Checked'
      'MainMenu.mmOptions.miCalcNeed.<P>.Checked'
      'MainMenu.mmOptions.miCheckOneSum.<P>.Checked'
      'MainMenu.mmOptions.miClearAfterOtherPay.<P>.Checked'
      'MainMenu.mmOptions.miMonthPay.<P>.Checked'
      'MainMenu.mmOptions.miPayPeni.<P>.Checked'
      'MainMenu.mmOptions.miPayPeniDefault.<P>.Checked'
      'MainMenu.mmOptions.miPayToCash.<P>.Checked'
      
        'MainMenu.mmOptions.miPeriodDefault.miPeriodCurrentMonth.<P>.Chec' +
        'ked'
      
        'MainMenu.mmOptions.miPeriodDefault.miPeriodPreviousMonth.<P>.Che' +
        'cked'
      'MainMenu.mmOptions.MIPrintCheck.<P>.Checked'
      'MainMenu.mmOptions.miPrintCheckAutoMode.<P>.Checked'
      'MainMenu.mmOptions.MIPrintCheckOther.<P>.Checked'
      'MainMenu.mmOptions.miPrintQuitInCheck.<P>.Checked'
      'MainMenu.mmOptions.miRepayAddNewCharge.<P>.Checked'
      'MainMenu.mmOptions.MIRound.<P>.Checked'
      'MainMenu.mmOptions.miSelAbonAfterPay.<P>.Checked'
      'MainMenu.mmOptions.miShowClosedLS.<P>.Checked'
      'MainMenu.mmOptions.miShowPayConfirm.<P>.Checked'
      'MainMenu.mmOptions.N3.<P>.Caption'
      
        'PageControl.ZKXPays.pcMain.AddSheet.GroupBox2.dbgClients.<P>.Col' +
        'umns.<ForAllItems>.Width'
      
        'PageControl.ZKXPays.pcMain.PaySheet.dbgPay.<P>.Columns.<ForAllIt' +
        'ems>.Width')
    Left = 288
  end
  object ds_ClientName: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select c.name from clients c, p_sel_abontenants_by_period (:pabo' +
        'nent_id, current_date, current_date) p'
      'where p.client_id = c.id'
      '  and p.status > 0'
      'union'
      'select c.name from clients c, abonents a'
      'where a.id = :pabonent_id'
      '  and a.client_id = c.id'
      'order by 1')
    AfterOpen = ds_ClientNameAfterOpen
    BeforeOpen = ds_ClientNameBeforeOpen
    Transaction = trAddress
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 102
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_ClientNameNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_ClientName: TDataSource
    DataSet = ds_ClientName
    Left = 568
    Top = 102
  end
  object ds_TargetGroup: TpFIBDataSet
    SelectSQL.Strings = (
      'select distinct rg.id, rg.name, rg.editmask'
      'from rtp_groups rg, rtp_dogovors r, rtp_agents ra'
      'where r.is_active = 1'
      '  and rg.is_active = 1'
      '  and ra.rtp_dog_id = r.id'
      '  and r.rpt_group_id = rg.id'
      
        '  and exists (select 1 from proc_orgs_get_childs (ra.userorg_id)' +
        ' pc'
      
        '        join proc_user_getorgcode (:puser_id) p on pc.rchild_id ' +
        '= p.rcode)'
      'order by rg.for_sort, rg.name')
    AfterOpen = ds_TargetGroupAfterOpen
    BeforeOpen = ds_TargetGroupBeforeOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 134
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_TargetGroupID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_TargetGroupNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_TargetGroupEDITMASK: TFIBStringField
      FieldName = 'EDITMASK'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_TargetGroup: TDataSource
    DataSet = ds_TargetGroup
    Left = 568
    Top = 134
  end
  object ds_Addresser: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select r.id, r.dogheader, r.pay_rate*0.01 as pay_rate from rtp_d' +
        'ogovors r, rtp_agents ra'
      'where r.is_active = 1'
      '  and ra.rtp_dog_id = r.id'
      '  and r.rpt_group_id = :rtp_group_id'
      
        '  and exists (select 1 from proc_orgs_get_childs (ra.userorg_id)' +
        ' pc'
      
        '        join proc_user_getorgcode (:puser_id) p on pc.rchild_id ' +
        '= p.rcode)'
      'order by r.dogheader')
    BeforeOpen = ds_AddresserBeforeOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 170
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_AddresserID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AddresserDOGHEADER: TFIBStringField
      FieldName = 'DOGHEADER'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_AddresserPAY_RATE: TFIBBCDField
      FieldName = 'PAY_RATE'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Addresser: TDataSource
    DataSet = ds_Addresser
    Left = 568
    Top = 170
  end
  object QPayOther: TpFIBQuery
    Transaction = PayTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT'
      '    RESULT'
      'FROM'
      '    PROC_CASHIER_INS_OTHER(:PRTP_DOG_ID,'
      '    :PSUMMA,'
      '    :RATESUMMA,'
      '    :PRECIEPT,'
      '    :PFIO,'
      '    :PDOCNO,'
      '    :PABONENT_ID,'
      '    :PKKM_SERAIL) ')
    Left = 344
    Top = 476
    qoStartTransaction = True
  end
  object QPayPlayLottery: TpFIBQuery
    Transaction = PayTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure PROC_CASHIER_PLAY_LOTTERY (:PReceipt_ID);')
    Left = 348
    Top = 426
    qoStartTransaction = True
  end
  object dsc_DocNum: TDataSource
    DataSet = ds_DocNum
    Left = 568
    Top = 202
  end
  object ds_DocNum: TpFIBDataSet
    SelectSQL.Strings = (
      'select distinct rp.docno'
      'from rtp_pays rp'
      'where rp.rpt_dog_id = :rtp_dog_id'
      '  and rp.fio = :FIO'
      '  and rp.docno is not null'
      'order by rp.docno')
    BeforeOpen = ds_DocNumBeforeOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 536
    Top = 202
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
  end
  object trCheck_new_charge: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 84
    Top = 190
  end
  object QCheck_new_charge: TpFIBQuery
    Transaction = trCheck_new_charge
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure proc_calc_new_charge (:PAbonent_ID);')
    Left = 62
    Top = 262
  end
  object MainPaysTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 707
    Top = 56
  end
  object trRecalcSaldo: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 119
    Top = 190
  end
  object trAddress: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'write'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 108
    Top = 20
  end
  object ds_RecieptTemplate: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    TEMPLATE'
      'FROM'
      '    RECIEPT_TEMPLATE '
      'order by id')
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Left = 696
    Top = 192
    object ds_RecieptTemplateTEMPLATE: TFIBStringField
      FieldName = 'TEMPLATE'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object ds_RecieptsOther: TpFIBDataSet
    SelectSQL.Strings = (
      'select r.reciept, sum(r.summa) as summa,'
      '       r.fio, r.docno, r.pay_rate,'
      '       rd.dogheader,'
      '       rg.name as service,'
      
        '       (select rname from user_getfullname (r.createuserid)) as ' +
        'creater,'
      '       r.createdate'
      '  from rtp_pays r'
      '  join rtp_dogovors rd on rd.id = r.rpt_dog_id'
      '  join rtp_groups rg on rg.id = rd.rpt_group_id'
      '  where coalesce(r.abonent_id, 0) = coalesce(:pabonent_id, 0)'
      '    and r.createuserid = (select rcode from user_getcode)'
      '  group by r.reciept, r.fio, r.docno, r.pay_rate,'
      '       rd.dogheader, rg.name, r.createuserid, r.createdate'
      '  order by r.createdate desc, r.reciept desc')
    AfterOpen = ds_RecieptsOtherAfterScroll
    AfterScroll = ds_RecieptsOtherAfterScroll
    BeforeOpen = ds_RecieptsOtherBeforeOpen
    Transaction = CashierTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 490
    Top = 322
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterPost = False
    oFetchAll = True
    object ds_RecieptsOtherRECIEPT: TFIBStringField
      DisplayLabel = #8470' '#1095#1077#1082#1072
      DisplayWidth = 10
      FieldName = 'RECIEPT'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object ds_RecieptsOtherFIO: TFIBStringField
      DisplayLabel = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
      DisplayWidth = 25
      FieldName = 'FIO'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherDOCNO: TFIBStringField
      DisplayLabel = #1053#1072#1079#1085#1072#1095#1077#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'DOCNO'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherPAY_RATE: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1082#1086#1084#1080#1089#1089#1080#1080
      DisplayWidth = 12
      FieldName = 'PAY_RATE'
      Size = 2
      RoundByScale = True
    end
    object ds_RecieptsOtherDOGHEADER: TFIBStringField
      DisplayLabel = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
      DisplayWidth = 20
      FieldName = 'DOGHEADER'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherSERVICE: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherCREATER: TFIBStringField
      DisplayLabel = #1054#1087#1077#1088#1072#1090#1086#1088
      DisplayWidth = 25
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_RecieptsOtherCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1083#1072#1090#1077#1078#1072
      DisplayWidth = 12
      FieldName = 'CREATEDATE'
    end
  end
  object dsc_RecieptsOther: TDataSource
    DataSet = ds_RecieptsOther
    Left = 524
    Top = 322
  end
  object dsMonthCharge: TpFIBDataSet
    SelectSQL.Strings = (
      'select '
      '    -- '#1082' '#1086#1087#1083#1072#1090#1077' '#1085#1072' '#1082#1086#1085#1077#1094' '#1084#1077#1089#1103#1094#1072' ='
      '    -- '#1057#1072#1083#1100#1076#1086' '#1085#1072' '#1082#1086#1085#1077#1094' '#1084#1077#1089#1103#1094#1072
      
        '    maxvalue(coalesce(sum((select -sum(p.summa * vw.sign) from p' +
        'ays p'
      '       join pay_types vw on vw.code = p.p_type'
      '       where p.dogovor_id = d.id'
      '         and p.docdate <= lastdaymonth(:pdate))), 0) +'
      '  '
      
        '      -- + '#1074#1089#1077' '#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090#1099' '#1079#1072' '#1101#1090#1086#1090' '#1080' '#1087#1088#1077#1076#1099#1076#1091#1097#1080#1077' '#1084#1077#1089#1103#1094#1099', '#1087#1088#1086#1074#1077#1076#1077#1085 +
        #1085#1099#1077' '#1087#1086#1079#1078#1077' '#1082#1086#1085#1094#1072' '#1091#1082#1072#1079#1072#1085#1085#1086#1075#1086' '#1084#1077#1089#1103#1094#1072
      '      coalesce(sum((select -sum(p.summa * vw.sign) from pays p'
      '         join vw_traits vw on vw.p_type = p.p_type'
      '           and vw.code = '#39'CHARGE'#39
      '         where p.dogovor_id = d.id'
      '           and p.edate <= lastdaymonth(:pdate)'
      '           and p.docdate > lastdaymonth(:pdate))), 0) +'
      ''
      '      -- + '#1074#1089#1077' '#1086#1087#1083#1072#1090#1099', '#1087#1088#1086#1074#1077#1076#1077#1085#1085#1099#1077' '#1087#1086#1079#1078#1077' '#1082#1086#1085#1094#1072' '#1091#1082#1072#1079#1072#1085#1085#1086#1075#1086' '#1084#1077#1089#1103#1094#1072
      '      coalesce(sum((select -sum(p.summa * vw.sign) from pays p'
      '         join vw_traits vw on vw.p_type = p.p_type'
      '           and vw.code = '#39'PAYS'#39
      '         where p.dogovor_id = d.id'
      
        '           and p.docdate > lastdaymonth(:pdate))), 0), 0) as rda' +
        'te_saldo'
      ''
      '  from dogovors d'
      '  join v_supplier v on v.id = d.supplier_id'
      '    and v.out_balance = 0'
      '    and v.closed_rs = 0'
      '  join rmanag r on r.id = d.manag_id'
      '    and r.out_balance = 0'
      '    and r.closed_rs = 0'
      '  where d.abonent_id = :pabonent_id')
    BeforeOpen = dsMonthChargeBeforeOpen
    Transaction = trAddress
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 696
    Top = 226
    poSQLINT64ToBCD = True
    oFetchAll = True
    object dsMonthChargeRDATE_SALDO: TFIBBCDField
      FieldName = 'RDATE_SALDO'
      Size = 2
      RoundByScale = True
    end
  end
end
